
print.table <- function(x1, x2, x3, x4, x5,....){
	options("scipen" = 100, "digits"=3)
  x1 <- unlist(x1)
  x2 <- unlist(x2)
  x3 <- unlist(x3)
  x4 <- unlist(x4)
  x5 <- unlist(x5)

  cat("Match 1 &", format(x1[1], digits=2))
  cat("&")
  cat("[", format(x1[2], digits=2), ", ", format(x1[3], digits=2),"]", sep="")
  cat("&")
  cat(format(x1[4], digits=3))
  cat("\\")
  cat("\\\n")

  cat("Match 2 &", format(x2[1], digits=2))
  cat("&")
  cat("[", format(x2[2], digits=2), ", ", format(x2[3], digits=2),"]", sep="")
  cat("&")
  cat(format(x2[4], digits=3))
  cat("\\")
  cat("\\\n")
  
  cat("Match 3 &", format(x3[1], digits=2))
  cat("&")
  cat("[", format(x3[2], digits=2), ", ", format(x3[3], digits=2),"]", sep="")
  cat("&")
  cat(format(x3[4], digits=3))
  cat("\\")
  cat("\\\n")
  
  cat("Match 4 &", format(x4[1], digits=2))
  cat("&")
  cat("[", format(x4[2], digits=2), ", ", format(x4[3], digits=2),"]", sep="")
  cat("&")
  cat(format(x4[4], digits=3))
  cat("\\")
  cat("\\\n")
  
  cat("Match 5 &", format(x5[1], digits=2))
  cat("&")
  cat("[", format(x5[2], digits=2), ", ", format(x5[3], digits=2),"]", sep="")
  cat("&")
  cat(format(x5[4], digits=3))
  cat("\\")
  cat("\\\n")
  
  }

